home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1994 June / PC Plus Super CD coverdisc Issue 93 June 1994.iso / suprdisk / mditool / mdichld2.frm (.txt) next >
Encoding:
Visual Basic Form  |  1994-05-31  |  2.4 KB  |  90 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   1845
  5.    ClientLeft      =   870
  6.    ClientTop       =   1845
  7.    ClientWidth     =   3180
  8.    Height          =   2535
  9.    Left            =   810
  10.    LinkTopic       =   "Form1"
  11.    MDIChild        =   -1  'True
  12.    ScaleHeight     =   1845
  13.    ScaleWidth      =   3180
  14.    Top             =   1215
  15.    Width           =   3300
  16.    Begin TextBox Text1 
  17.       Height          =   1455
  18.       Left            =   120
  19.       MultiLine       =   -1  'True
  20.       ScrollBars      =   2  'Vertical
  21.       TabIndex        =   0
  22.       Text            =   "Text1"
  23.       Top             =   120
  24.       Width           =   2895
  25.    End
  26.    Begin Menu mnuEdit 
  27.       Caption         =   "&Edit"
  28.       Begin Menu mnuCut 
  29.          Caption         =   "&Cu&t"
  30.          Shortcut        =   ^X
  31.       End
  32.       Begin Menu mnuCopy 
  33.          Caption         =   "&Copy"
  34.          Shortcut        =   ^C
  35.       End
  36.       Begin Menu mnuPaste 
  37.          Caption         =   "&Paste"
  38.          Shortcut        =   ^V
  39.       End
  40.       Begin Menu mnuDelete 
  41.          Caption         =   "&Delete"
  42.          Shortcut        =   {DEL}
  43.       End
  44.    End
  45.    Begin Menu mnuWindow 
  46.       Caption         =   "&Window"
  47.       Begin Menu mnuCascade 
  48.          Caption         =   "&Cascade"
  49.       End
  50.       Begin Menu mnuTile 
  51.          Caption         =   "&Tile"
  52.       End
  53.       Begin Menu mnuArrange 
  54.          Caption         =   "&Arrange Icons"
  55.       End
  56.    End
  57. Option Explicit
  58. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  59.     ' Just in case lblStatus hasn't been blanked
  60.     MDIForm1.lblStatus = ""
  61. End Sub
  62. Sub Form_Unload (Cancel As Integer)
  63.     NumChild = NumChild - 1
  64.     If NumChild = 0 Then DisableEdit
  65. End Sub
  66. Sub mnuArrange_Click ()
  67.     ' Arranges the icons for all minimised child forms
  68.     MDIForm1.Arrange ARRANGE_ICONS
  69. End Sub
  70. Sub mnuCascade_Click ()
  71.     ' Cascades all child forms that are not minimised
  72.     MDIForm1.Arrange CASCADE
  73. End Sub
  74. Sub mnuCopy_Click ()
  75.     EditCopy
  76. End Sub
  77. Sub mnuCut_Click ()
  78.     EditCut
  79. End Sub
  80. Sub mnuDelete_Click ()
  81.     ActiveControl.SelText = ""
  82. End Sub
  83. Sub mnuPaste_Click ()
  84.     EditPaste
  85. End Sub
  86. Sub mnuTile_Click ()
  87.     ' Tiles all child forms that are not minimised
  88.     MDIForm1.Arrange TILE_HORIZONTAL
  89. End Sub
  90.